% PRODUCEFIG1.m
%
% Compares the Impulse Responses of the initial and final structures with the responses of the transition.

irfsim;
irfini;
irffin;

%% Plot Options
lw = 2;    % LineWidth

%% Figure 1
figure('Name','Figure 1 in the paper: Demand shock -- ea(t) shock 1','NumberTitle','off')
subplot(2,2,1), plot(time,output_resp_ini_1,'b--',time,output_resp_fin_1,'r--',time,output_resp_1,'g','LineWidth',lw), 
                title('Output','fontsize',14), ylabel('%'), legend('Initial Structure','Final Structure','Actual Path'),grid,set(gca,'xtick',[ta, T+ta])
subplot(2,2,2), plot(time,inflation_resp_ini_1,'b--',time,inflation_resp_fin_1,'r--',time,inflation_resp_1,'g','LineWidth',lw),
                title('Inflation','fontsize',14), ylabel('%'),legend('Initial','Final','Path'),grid,set(gca,'xtick',[ta, T+ta])
subplot(2,2,3), plot(time,r_resp_ini_1,'b--',time,r_resp_fin_1,'r--',time,r_resp_1,'g','LineWidth',lw),
                title('Nominal Interest Rate','fontsize',14), ylabel('%'),legend('Initial','Final','Path'),grid,set(gca,'xtick',[ta, T+ta])  
subplot(2,2,4), plot(time,g_resp_ini_1,'b--',time,g_resp_fin_1,'r--',time,g_resp_1,'g','LineWidth',lw),
                title('Output Growth','fontsize',14), ylabel('%'),legend('Initial','Final','Path'),grid,set(gca,'xtick',[ta, T+ta])
orient landscape

                